home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
fortran
/
fv121s.zip
/
FAT5.DOC
< prev
next >
Wrap
Text File
|
1988-06-08
|
27KB
|
934 lines
APR 1988 FAT-VIDEO 1.21 WOPEN Page W-1
WOPEN(WID,BATTR,TATTR,ULR,ULC,NR,NC,TITLE,WB,WC,WT) - Open a window.
Usage:
call wopen(wid,battr,tattr,ulr,ulc,nr,nc,title,wb,wc,wt)
integer*2 wid,battr,tattr,ulr,ulc,nr,nc,wb,wt,wc
character*80 title
inputs: battr,tattr,ulr,ulc,nr,nc,title,wb,wt,wc
returns: wid
MS-Fortran Large Model
Description:
This routine sets up the window structures, initializes them,
and opens a window.
Windows do not have to be overlapped, nor must they always be
deleted in order. If they are overlapped, they must be deleted
in reverse order. If some are overlapped and some are not, the
overlapped windows must be deleted in reverse of how they were
layered.
wid = returned by wopen, window id
battr = input, border attribute, output from setab
tattr = input, text attribute, output from setab
ulr = input, upper left row of window
ulc = input, upp left col f window
nr = input, no. of usable rows in window
nc = input, no. of usable cols in window
title = input, null terminated string.
example... 'My Window'//char(0)
example... 'My Window'C
example... 'My Window`'
wb = input, no. of border lines 0,1, or 2
wc = input, title justification: center = 1
left = 0
wt = input, title pointer: none = 0
vert line = 1
arrows = 2
APR 1988 FAT-VIDEO 1.21 WCLOSE Page W-2
WCLOSE(WID) - Close the window.
Usage:
call wclose(wid)
integer*2 wid
inputs: wid
returns: none
MS-Fortran Large Model
Description:
This function closes the window specified by wid and
deletes it from memory, and then frees the memory allocated
for this window.
APR 1988 FAT-VIDEO 1.21 WPRNAS Page W-3
WPRNAS(WID,ATTR,STRING)- Print string in window with attributes
Usage:
call wprnas(wid,attr,string)
integer*2 wid,attr
character*80 string
inputs: wid,string,attr
returns: none
MS-Fortran Large Model
Description:
This function will print a string in the window specified by
wid. The string starts printing at the current cursor location
and does not wrap at the window boundary. You should call wcrlf()
to advance to the start of the next line. The string must be null
terminated, i.e. string=' My Text'//char(0) , or 'My Text`'.
The attribute variable attr does not have to be the same as that
used to initially define the window. That's the purpose of it in
this function.
The string may be defined prior to the call or in-line.
i.e. string=' text '//char(0)
call wprnas(wid,attr,string)
or
call wprnas(wid,attr,' text `')
All functions requiring a string as input allow this form of call.
See also wprint(), wcrlf(), setnul().
APR 1988 FAT-Video-1.21 WPRINT Page W-4
WPRINT(WID,STRING) - Print string in window
Usage:
call wprint(wid,string)
integer*2 wid
character*80 string
inputs: wid, string
returns: none
MS-Fortran Large Model
Description:
This function writes the input string to the specified window
starting at the current cursor location. This function does handle
word wrapping at the window boundary, or you should call wcrlf()
to go to the start of the next line. The string may be defined
prior to this call or the string may be defined in the call.
The input string must be formed as a null terminated string.
See wprnas() or setnul() for more on null terminated strings.
See also wprnas(), wcrlf().
APR 1988 FAT-Video-1.21 WCLS Page W-5
WCLS(wid) - Clear the window
Usage:
call wcls(wid)
integer*2 wid
inputs: wid
returns: none
MS-Fortran Large Model
Description:
This function performs a clear screen in the window specified
by wid and then sets the cursor to the home position in the
window at (1,1).
APR 1988 FAT-Video-1.21 WCRX Page W-6
WCRX(WID) - Perform a carriage return in a window.
Usage:
call wcrx(wid)
integer*2 wid
inputs: wid
returns: none
MS-Fortran Large Model
Description:
This function performs a carriage return in the window
specified by wid, effectively moving the cursor to column 1
in its current row without advancing to the next line.
APR 1988 FAT-Video-1.21 WLFX Page W-7
WLFX(WID) - Perform a line feed in the window.
Usage:
call wlfx(wid)
integer*2 wid
inputs: wid
returns: none
MS-Fortran Large Model
Description:
This function performs a line feed in the window
specified by wid, effectively moving the cursor to the next
row, but in the same column.
APR 1988 FAT-Video-1.21 WCRLF Page W-8
WCRLF(WID)- Perform carriage return, and line feed, in a window.
Usage:
call wcrlf(wid)
integer*2 wid
inputs: wid
returns: none
MS-Fortran Large Model
Description:
This function performs a carriage return and a line feed in
the window specified by wid, effectively moving the cursor to
start of the next row in column 1. This is similar to the
enter key.
APR 1988 FAT-Video-1.21 WCLEOL Page W-9
WCLEOL(WID)- Clear to end of line, in the window.
Usage:
call wcleol(wid)
integer*2 wid
inputs: wid
returns: none
MS-Fortran Large Model
Description:
This function clears the current line to the window border in
the window specified by wid.
APR 1988 FAT-VIDEO 1.21 WGETCP Page W-10
WGETCP(WID,ROW,COL) - Get cursor row,col in window.
Usage:
call wgetcp(wid,row,col)
integer*2 wid,row,col
inputs: wid
returns: row,col
MS-Fortran Large Model
Description:
This function returns the cursor coordinates for the window
specified by wid, in window coordinates. Window rows start at
row 1,2,3.. columns run col 1,2,3... .
APR 1988 FAT-VIDEO 1.21 WSETCP Page W-11
WSETCP(WID,ROW,COL) - Set cursor to row,col in window.
Usage:
call wsetcp(wid,row,col)
integer*2 wid,row,col
inputs: wid,row,col
returns: none
MS-Fortran Large Model
Description:
This function sets the cursor at row,col for the window
specified by wid, in window coordinates. Window rows start
at row 1,2,3.., columns run col 1,2,3... .
APR 1988 FAT-VIDEO 1.21 WGETSN